Looney Tunes Photo Print Studio (Special Edition)/LIVEPIX.iso/ORIENTAT/DATA/LPORIENT.DXR/00001_main movie scripts.ls

Text File | 1998-01-16 | 9.9 KB | 252 lines

global gSystem, gPathSep, gHistory, gCurr, gLastRollover, gTA, gTB, gTC, gTD, gTE, gTF, gTG, gTH, gTI, gTJ, gTK, gTL, gTM, gGroup2, gGroup3, gGroup4, gMenu, gExit, gSubmenu, gNavGroup2, gNavGroup3, gNavGroup4, gNavA, gNavB, gNavC, gNavD, gNavE, gNavF, gNavG, gNavH, gNavI, gNavJ, gNavK, gNavM, gNavMenu, gNavToMenu, gNavToExit, gNavToGp2, gNavToGp3, gNavToGp4, gTADown, gTBDown, gTCDown, gTDDown, gTEDown, gTFDown, gTGDown, gTHDown, gTIDown, gTJDown, gTKDown, gTLDown, gTMDown, gGroup2Down, gGroup3Down, gGroup4Down, gMenuDown, gExitDown, gSubmenuDown, gTARoll, gTBRoll, gTCRoll, gTDRoll, gTERoll, gTFRoll, gTGRoll, gTHRoll, gTIRoll, gTJRoll, gTKRoll, gTLRoll, gTMRoll, gGroup2Roll, gGroup3Roll, gGroup4Roll, gMenuRoll, gExitRoll, gSubmenuRoll, gsTA, gsTB, gsTC, gsTD, gsTE, gsTF, gsTG, gsTH, gsTI, gsTJ, gsTK, gsTL, gsTM, gsMenu, gsExit, gsGroup2, gsGroup3, gsGroup4, gsNavBack, gsNavMsg, gsHist1, gsHist2, gsHist3, gsHist4, gsHist5, gsHist6, gsHist7, gsInstall, gAudioList, gAudioPath, gAudioPlayFlag, gUtil, gMusic, gMusicPlayFlag

on startMovie
  set audio_path to the pathName & "audio\"
  add(the searchPath, audio_path)
end

on Initialize
  global gToFrame, gInitDelay, gCompletedBasics
  set gCompletedBasics to 0
  if voidp(gPathSep) then
    set gPathSep to "\"
  end if
  MessagePut("initialize...")
  InitPuppets()
  InitAudio()
  InitHistory()
  set gInitDelay to the ticks + (3 * 60)
  if voidp(gToFrame) then
    set gToFrame to "Menu"
    MessagePut("gToFrame is undef in init!")
    set gMusic to #reggae
    PlayAudio(gMusic, 3)
    go("Wait")
    exit
  else
    MessagePut("gToFrame is" && gToFrame)
  end if
  set gMusic to #reggae
  PlayAudio(gMusic, 3)
  go("Wait")
end

on InitPuppets
  global gToFrame
  set gLastRollover to 0
  set gsInstall to 48
  puppetSprite(gsInstall, 1)
  if gToFrame = "Menu" then
    set the castNum of sprite gsInstall to the number of member "cInstallMenu"
  else
    set the castNum of sprite gsInstall to the number of member "cInstallBasics"
  end if
  set vOffset to 32
  set gsTA to vOffset
  set gsGroup2 to vOffset + 1
  set gsGroup3 to vOffset + 2
  set gsGroup4 to vOffset + 3
  set gsTB to vOffset
  set gsTD to vOffset + 1
  set gsTE to vOffset + 2
  set gsTF to vOffset + 3
  set gsTC to vOffset + 4
  set gsTG to vOffset + 5
  set gsTM to vOffset + 6
  set gsTH to vOffset
  set gsTK to vOffset + 1
  set gsTI to vOffset
  set gsTJ to vOffset + 1
  set gsTL to vOffset + 2
  set gsHist1 to vOffset + 6
  set gsHist2 to vOffset + 7
  set gsHist3 to vOffset + 8
  set gsHist4 to vOffset + 9
  set gsHist5 to vOffset + 10
  set gsHist6 to vOffset + 11
  set gsHist7 to vOffset + 12
  set gsNavBack to 43
  set gsNavMsg to 44
  set gsMenu to 46
  set gsExit to 45
  set gTA to the number of member "cTA"
  set gTARoll to the number of member "cTARoll"
  set cTADown to the number of member "cTADown"
  set gGroup2 to the number of member "cGroup2"
  set gGroup2Roll to the number of member "cGroup2Roll"
  set gGroup2Down to the number of member "cGroup2Down"
  set gGroup3 to the number of member "cGroup3"
  set gGroup3Roll to the number of member "cGroup3Roll"
  set gGroup3Down to the number of member "cGroup3Down"
  set gGroup4 to the number of member "cGroup4"
  set gGroup4Roll to the number of member "cGroup4Roll"
  set gGroup4Down to the number of member "cGroup4Down"
  set gMenu to the number of member "cMenu"
  set gMenuRoll to the number of member "cMenuRoll"
  set gMenuDown to the number of member "cMenuDown"
  set gExit to the number of member "cExit"
  set gExitRoll to the number of member "cExitRoll"
  set gExitDown to the number of member "cExitDown"
  set gSubmenu to the number of member "cSubmenu"
  set gSubmenuRoll to the number of member "cSubmenuRoll"
  set gSubmenuDown to the number of member "cSubmenuDown"
  set gTB to the number of member "cTB"
  set gTBRoll to the number of member "cTBRoll"
  set gTBDown to the number of member "cTBDown"
  set gTC to the number of member "cTC"
  set gTCRoll to the number of member "cTCRoll"
  set gTCDown to the number of member "cTCDown"
  set gTD to the number of member "cTD"
  set gTDRoll to the number of member "cTDRoll"
  set gTDDown to the number of member "cTDDown"
  set gTE to the number of member "cTE"
  set gTERoll to the number of member "cTERoll"
  set gTEDown to the number of member "cTEDown"
  set gTF to the number of member "cTF"
  set gTFRoll to the number of member "cTFRoll"
  set gTFDown to the number of member "cTFDown"
  set gTG to the number of member "cTG"
  set gTGRoll to the number of member "cTGRoll"
  set gTGDown to the number of member "cTGDown"
  set gTH to the number of member "cTH"
  set gTHRoll to the number of member "cTHRoll"
  set gTHDown to the number of member "cTHDown"
  set gTI to the number of member "cTI"
  set gTIRoll to the number of member "cTIRoll"
  set gTIDown to the number of member "cTIDown"
  set gTJ to the number of member "cTJ"
  set gTJRoll to the number of member "cTJRoll"
  set gTJDown to the number of member "cTJDown"
  set gTK to the number of member "cTK"
  set gTKRoll to the number of member "cTKRoll"
  set gTKDown to the number of member "cTKDown"
  set gTM to the number of member "cTM"
  set gTMRoll to the number of member "cTMRoll"
  set gTMDown to the number of member "cTMDown"
  set gNavMenu to the number of member "cNavMenu"
  set gNavGroup2 to the number of member "cNavGroup2"
  set gNavGroup3 to the number of member "cNavGroup3"
  set gNavGroup4 to the number of member "cNavGroup4"
  set gNavToMenu to the number of member "cNavToMenu"
  set gNavToExit to the number of member "cNavToExit"
  set gNavToGp2 to the number of member "cNavToGroup2"
  set gNavToGp3 to the number of member "cNavToGroup3"
  set gNavToGp4 to the number of member "cNavToGroup4"
  set gNavA to the number of member "cNavA"
  set gNavB to the number of member "cNavB"
  set gNavC to the number of member "cNavC"
  set gNavD to the number of member "cNavD"
  set gNavE to the number of member "cNavE"
  set gNavF to the number of member "cNavF"
  set gNavG to the number of member "cNavG"
  set gNavH to the number of member "cNavH"
  set gNavI to the number of member "cNavI"
  set gNavJ to the number of member "cNavJ"
  set gNavK to the number of member "cNavK"
  set gNavM to the number of member "cNavM"
  puppetSprite(gsNavBack, 1)
  puppetSprite(gsNavMsg, 1)
end

on InitAudio
  global gLastSnd1, gLastSnd2, gLastSnd3, gToFrame
  set gLastSnd1 to EMPTY
  set gLastSnd2 to EMPTY
  set gLastSnd3 to EMPTY
  set gAudioList to [1: "B0050,255", 2: "C0120,255", 3: "D0050,255", 4: "F0090,255", #basics: "A0450,255", 5: "Misc01,255", #reggae: "Brh66_02,100", #intro: "Misc02,255", #select: "Misc03,255", #basicscomplete: "A0430,255"]
  set gAudioPath to the pathName & "AUDIO" & gPathSep
  set gAudioPlayFlag to 1
  if gToFrame = #menu then
    set gAudioPlayFlag to 1
  end if
  set the volume of sound 1 to 255
  set the volume of sound 3 to 100
end

on InitHistory
  set gHistory to []
  set gCurr to #init
end

on stopMovie
end

on AddToHistory aChar
  MessagePut("adding" && aChar && "to history")
  if aChar = "B" then
    set gTB to the number of member "cxTB"
    set gTBRoll to the number of member "cxTBRoll"
    set gTBDown to the number of member "cxTBDown"
  else
    if aChar = "C" then
      set gTC to the number of member "cxTC"
      set gTCRoll to the number of member "cxTCRoll"
      set gTCDown to the number of member "cxTCDown"
    else
      if aChar = "D" then
        set gTD to the number of member "cxTD"
        set gTDRoll to the number of member "cxTDRoll"
        set gTDDown to the number of member "cxTDDown"
      else
        if aChar = "E" then
          set gTE to the number of member "cxTE"
          set gTERoll to the number of member "cxTERoll"
          set gTEDown to the number of member "cxTEDown"
        else
          if aChar = "F" then
            set gTF to the number of member "cxTF"
            set gTFRoll to the number of member "cxTFRoll"
            set gTFDown to the number of member "cxTFDown"
          else
            if aChar = "G" then
              set gTG to the number of member "cxTG"
              set gTGRoll to the number of member "cxTGRoll"
              set gTGDown to the number of member "cxTGDown"
            else
              if aChar = "H" then
                set gTH to the number of member "cxTH"
                set gTHRoll to the number of member "cxTHRoll"
                set gTHDown to the number of member "cxTHDown"
              else
                if aChar = "I" then
                  set gTI to the number of member "cxTI"
                  set gTIRoll to the number of member "cxTIRoll"
                  set gTIDown to the number of member "cxTIDown"
                else
                  if aChar = "J" then
                    set gTJ to the number of member "cxTJ"
                    set gTJRoll to the number of member "cxTJRoll"
                    set gTJDown to the number of member "cxTJDown"
                  else
                    if aChar = "K" then
                      set gTK to the number of member "cxTK"
                      set gTKRoll to the number of member "cxTKRoll"
                      set gTKDown to the number of member "cxTKDown"
                    else
                      if aChar = "L" then
                        set gTL to the number of member "cxTL"
                        set gTLRoll to the number of member "cxTLRoll"
                        set gTLDown to the number of member "cxTLDown"
                      else
                        if aChar = "M" then
                          set gTM to the number of member "cxTM"
                          set gTMRoll to the number of member "cxTMRoll"
                          set gTMDown to the number of member "cxTMDown"
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on exitFrame
  RolloverCheck()
end